Fix bug in populate buffer

diff --git a/which-key.el b/which-key.el
index cbc3a2b87b177100fe458c5d7d7346f495fd122c..4605e73cc1cae1aee240d1add2490bd9f26fa82d 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -569,7 +569,8 @@ the maximum number of lines availabel in the target buffer."
 (defun which-key/populate-buffer (prefix-keys formatted-keys
                                   column-width sel-win-width)
   "Insert FORMATTED-STRINGS into which-key buffer, breaking after BUFFER-WIDTH."
-  (let* ((vertical-mode (member which-key-side-window-location '(left right)))
+  (let* ((vertical-mode (and (eq which-key-popup-type 'side-window)
+                             (member which-key-side-window-location '(left right))))
          (prefix-w-face (which-key/propertize-key prefix-keys))
          (prefix-len (+ 2 (length (substring-no-properties prefix-w-face))))
          (prefix-string (when which-key-show-prefix